home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / delfin.zip / OPTMAIN1.DFM / OPTMAIN1.txt < prev   
Text File  |  1996-08-06  |  13KB  |  477 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 51
  4.   Width = 595
  5.   Height = 498
  6.   Caption = 'Demo For Options Components'
  7.   Color = clBlue
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 16
  14.   object Panel1: TPanel
  15.     Left = 40
  16.     Top = 64
  17.     Width = 225
  18.     Height = 249
  19.     TabOrder = 0
  20.     object Label1: TLabel
  21.       Left = 8
  22.       Top = 16
  23.       Width = 77
  24.       Height = 16
  25.       Caption = 'Stock Price:'
  26.       FocusControl = StockPrice
  27.     end
  28.     object Label2: TLabel
  29.       Left = 8
  30.       Top = 54
  31.       Width = 80
  32.       Height = 16
  33.       Caption = 'Intrest Rate:'
  34.       FocusControl = IntrestRate
  35.     end
  36.     object Label3: TLabel
  37.       Left = 8
  38.       Top = 92
  39.       Width = 79
  40.       Height = 16
  41.       Caption = 'Strike Price:'
  42.       FocusControl = StrikePrice
  43.     end
  44.     object Label4: TLabel
  45.       Left = 8
  46.       Top = 130
  47.       Width = 35
  48.       Height = 16
  49.       Caption = 'Date:'
  50.       FocusControl = DDate
  51.     end
  52.     object Label5: TLabel
  53.       Left = 8
  54.       Top = 168
  55.       Width = 96
  56.       Height = 16
  57.       Caption = 'Exercize Date:'
  58.       FocusControl = ExercizeDate
  59.     end
  60.     object Label6: TLabel
  61.       Left = 8
  62.       Top = 208
  63.       Width = 109
  64.       Height = 16
  65.       Caption = 'Dividende Yield:'
  66.       FocusControl = Dividende
  67.     end
  68.     object StockPrice: TOvcNumericField
  69.       Left = 128
  70.       Top = 12
  71.       Width = 73
  72.       Height = 24
  73.       Cursor = crIBeam
  74.       DataType = nftDouble
  75.       CaretOvr.Shape = csBlock
  76.       Controller = OvcController1
  77.       ErrorColors.BackColor = clRed
  78.       ErrorColors.TextColor = clBlack
  79.       HighlightColors.BackColor = clHighlight
  80.       HighlightColors.TextColor = clHighlightText
  81.       PictureMask = '#####.##'<image000.unknown>}
  82.       RangeLow = {74B2DBB9838916F2FEC3}
  83.     end
  84.     object DDate: TOvcPictureField
  85.       Left = 128
  86.       Top = 126
  87.       Width = 89
  88.       Height = 24
  89.       Cursor = crIBeam
  90.       DataType = pftDate
  91.       CaretOvr.Shape = csBlock
  92.       Controller = OvcController1
  93.       ErrorColors.BackColor = clRed
  94.       ErrorColors.TextColor = clBlack
  95.       HighlightColors.BackColor = clHighlight
  96.       HighlightColors.TextColor = clHighlightText
  97.       MaxLength = 10
  98.       PictureMask = 'dd/mm/yyyy'<image001.unknown>}
  99.       RangeLow = {00000000000000000000}
  100.     end
  101.     object ExercizeDate: TOvcPictureField
  102.       Left = 128
  103.       Top = 164
  104.       Width = 89
  105.       Height = 24
  106.       Cursor = crIBeam
  107.       DataType = pftDate
  108.       CaretOvr.Shape = csBlock
  109.       Controller = OvcController1
  110.       ErrorColors.BackColor = clRed
  111.       ErrorColors.TextColor = clBlack
  112.       HighlightColors.BackColor = clHighlight
  113.       HighlightColors.TextColor = clHighlightText
  114.       MaxLength = 10
  115.       PictureMask = 'dd/mm/yyyy'<image002.unknown>}
  116.       RangeLow = {00000000000000000000}
  117.     end
  118.     object IntrestRate: TOvcNumericField
  119.       Left = 128
  120.       Top = 50
  121.       Width = 60
  122.       Height = 24
  123.       Cursor = crIBeam
  124.       DataType = nftDouble
  125.       CaretOvr.Shape = csBlock
  126.       Controller = OvcController1
  127.       ErrorColors.BackColor = clRed
  128.       ErrorColors.TextColor = clBlack
  129.       HighlightColors.BackColor = clHighlight
  130.       HighlightColors.TextColor = clHighlightText
  131.       PictureMask = '##.##%'<image003.unknown>}
  132.       RangeLow = {74B2DBB9838916F2FEC3}
  133.     end
  134.     object StrikePrice: TOvcNumericField
  135.       Left = 128
  136.       Top = 88
  137.       Width = 73
  138.       Height = 24
  139.       Cursor = crIBeam
  140.       DataType = nftDouble
  141.       CaretOvr.Shape = csBlock
  142.       Controller = OvcController1
  143.       ErrorColors.BackColor = clRed
  144.       ErrorColors.TextColor = clBlack
  145.       HighlightColors.BackColor = clHighlight
  146.       HighlightColors.TextColor = clHighlightText
  147.       PictureMask = '#####.##'<image004.unknown>}
  148.       RangeLow = {74B2DBB9838916F2FEC3}
  149.     end
  150.     object Dividende: TOvcNumericField
  151.       Left = 128
  152.       Top = 202
  153.       Width = 60
  154.       Height = 24
  155.       Cursor = crIBeam
  156.       DataType = nftDouble
  157.       CaretOvr.Shape = csBlock
  158.       Controller = OvcController1
  159.       ErrorColors.BackColor = clRed
  160.       ErrorColors.TextColor = clBlack
  161.       HighlightColors.BackColor = clHighlight
  162.       HighlightColors.TextColor = clHighlightText
  163.       PictureMask = '##.##%'<image005.unknown>}
  164.       RangeLow = {74B2DBB9838916F2FEC3}
  165.     end
  166.   end
  167.   object Panel2: TPanel
  168.     Left = 320
  169.     Top = 64
  170.     Width = 225
  171.     Height = 249
  172.     TabOrder = 1
  173.     object SpeedButton1: TSpeedButton
  174.       Left = 184
  175.       Top = 168
  176.       Width = 33
  177.       Height = 33
  178.       Glyph.Data = {
  179.         78010000424D7801000000000000760000002800000020000000100000000100
  180.         04000000000000000000120B0000120B00000000000000000000000000000000
  181.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  182.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
  183.         73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
  184.         0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
  185.         0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  186.         0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  187.         0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
  188.         0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
  189.         0333337F777777737F333308888888880333337F333333337F33330888888888
  190.         03333373FFFFFFFF7333337000000000733333377777777733330000}
  191.       NumGlyphs = 2
  192.       OnClick = SpeedButton1Click
  193.     end
  194.     object Label7: TLabel
  195.       Left = 16
  196.       Top = 152
  197.       Width = 67
  198.       Height = 16
  199.       Caption = 'Call Price:'
  200.       FocusControl = CallPrice
  201.       Visible = False
  202.     end
  203.     object Label8: TLabel
  204.       Left = 16
  205.       Top = 206
  206.       Width = 61
  207.       Height = 16
  208.       Caption = 'Volatility:'
  209.       FocusControl = Volatility
  210.     end
  211.     object RadioGroup1: TRadioGroup
  212.       Left = 8
  213.       Top = 16
  214.       Width = 209
  215.       Height = 105
  216.       ItemIndex = 0
  217.       Items.Strings = (
  218.         'Calculate Call Price'
  219.         'Calculate Implied Volatility')
  220.       TabOrder = 0
  221.       OnClick = RadioGroup1Click
  222.     end
  223.     object CallPrice: TOvcNumericField
  224.       Left = 96
  225.       Top = 148
  226.       Width = 73
  227.       Height = 24
  228.       Cursor = crIBeam
  229.       DataType = nftDouble
  230.       CaretOvr.Shape = csBlock
  231.       Controller = OvcController1
  232.       ErrorColors.BackColor = clRed
  233.       ErrorColors.TextColor = clBlack
  234.       HighlightColors.BackColor = clHighlight
  235.       HighlightColors.TextColor = clHighlightText
  236.       PictureMask = '#####.##'<image006.unknown>}
  237.       RangeLow = {74B2DBB9838916F2FEC3}
  238.     end
  239.     object Volatility: TOvcNumericField
  240.       Left = 96
  241.       Top = 202
  242.       Width = 60
  243.       Height = 24
  244.       Cursor = crIBeam
  245.       DataType = nftDouble
  246.       CaretOvr.Shape = csBlock
  247.       Controller = OvcController1
  248.       ErrorColors.BackColor = clRed
  249.       ErrorColors.TextColor = clBlack
  250.       HighlightColors.BackColor = clHighlight
  251.       HighlightColors.TextColor = clHighlightText
  252.       PictureMask = '##.##%'<image007.unknown>}
  253.       RangeLow = {74B2DBB9838916F2FEC3}
  254.     end
  255.   end
  256.   object Panel3: TPanel
  257.     Left = 96
  258.     Top = 320
  259.     Width = 377
  260.     Height = 145
  261.     Alignment = taLeftJustify
  262.     TabOrder = 2
  263.     object Label9: TLabel
  264.       Left = 8
  265.       Top = 16
  266.       Width = 39
  267.       Height = 16
  268.       Caption = 'Delta:'
  269.       FocusControl = Delta
  270.     end
  271.     object Label10: TLabel
  272.       Left = 8
  273.       Top = 64
  274.       Width = 55
  275.       Height = 16
  276.       Caption = 'Gamma:'
  277.       FocusControl = Gamma
  278.     end
  279.     object Label11: TLabel
  280.       Left = 8
  281.       Top = 112
  282.       Width = 37
  283.       Height = 16
  284.       Caption = 'Vega:'
  285.       FocusControl = Vega
  286.     end
  287.     object Label12: TLabel
  288.       Left = 208
  289.       Top = 16
  290.       Width = 31
  291.       Height = 16
  292.       Caption = 'Rho:'
  293.       FocusControl = Rho
  294.     end
  295.     object Label13: TLabel
  296.       Left = 208
  297.       Top = 64
  298.       Width = 41
  299.       Height = 16
  300.       Caption = 'Theta:'
  301.       FocusControl = Theta
  302.     end
  303.     object Label14: TLabel
  304.       Left = 208
  305.       Top = 112
  306.       Width = 51
  307.       Height = 16
  308.       Caption = 'Omega:'
  309.       FocusControl = Omega
  310.     end
  311.     object Delta: TOvcNumericField
  312.       Left = 80
  313.       Top = 12
  314.       Width = 73
  315.       Height = 24
  316.       Cursor = crIBeam
  317.       DataType = nftDouble
  318.       CaretOvr.Shape = csBlock
  319.       Color = clBlue
  320.       Controller = OvcController1
  321.       ErrorColors.BackColor = clRed
  322.       ErrorColors.TextColor = clBlack
  323.       Font.Color = clWhite
  324.       Font.Height = -13
  325.       Font.Name = 'System'
  326.       Font.Style = []
  327.       HighlightColors.BackColor = clHighlight
  328.       HighlightColors.TextColor = clHighlightText
  329.       ParentFont = False
  330.       PictureMask = '99999.99'<image008.unknown>}
  331.       RangeLow = {74B2DBB9838916F2FEC3}
  332.     end
  333.     object Gamma: TOvcNumericField
  334.       Left = 80
  335.       Top = 60
  336.       Width = 73
  337.       Height = 24
  338.       Cursor = crIBeam
  339.       DataType = nftDouble
  340.       CaretOvr.Shape = csBlock
  341.       Color = clBlue
  342.       Controller = OvcController1
  343.       ErrorColors.BackColor = clRed
  344.       ErrorColors.TextColor = clBlack
  345.       Font.Color = clWhite
  346.       Font.Height = -13
  347.       Font.Name = 'System'
  348.       Font.Style = []
  349.       HighlightColors.BackColor = clHighlight
  350.       HighlightColors.TextColor = clHighlightText
  351.       ParentFont = False
  352.       PictureMask = '99999.99'<image009.unknown>}
  353.       RangeLow = {74B2DBB9838916F2FEC3}
  354.     end
  355.     object Vega: TOvcNumericField
  356.       Left = 80
  357.       Top = 108
  358.       Width = 73
  359.       Height = 24
  360.       Cursor = crIBeam
  361.       DataType = nftDouble
  362.       CaretOvr.Shape = csBlock
  363.       Color = clBlue
  364.       Controller = OvcController1
  365.       ErrorColors.BackColor = clRed
  366.       ErrorColors.TextColor = clBlack
  367.       Font.Color = clWhite
  368.       Font.Height = -13
  369.       Font.Name = 'System'
  370.       Font.Style = []
  371.       HighlightColors.BackColor = clHighlight
  372.       HighlightColors.TextColor = clHighlightText
  373.       ParentFont = False
  374.       PictureMask = '99999.99'<image010.unknown>}
  375.       RangeLow = {74B2DBB9838916F2FEC3}
  376.     end
  377.     object Rho: TOvcNumericField
  378.       Left = 288
  379.       Top = 12
  380.       Width = 73
  381.       Height = 24
  382.       Cursor = crIBeam
  383.       DataType = nftDouble
  384.       CaretOvr.Shape = csBlock
  385.       Color = clBlue
  386.       Controller = OvcController1
  387.       ErrorColors.BackColor = clRed
  388.       ErrorColors.TextColor = clBlack
  389.       Font.Color = clWhite
  390.       Font.Height = -13
  391.       Font.Name = 'System'
  392.       Font.Style = []
  393.       HighlightColors.BackColor = clHighlight
  394.       HighlightColors.TextColor = clHighlightText
  395.       ParentFont = False
  396.       PictureMask = '99999.99'<image011.unknown>}
  397.       RangeLow = {74B2DBB9838916F2FEC3}
  398.     end
  399.     object Theta: TOvcNumericField
  400.       Left = 288
  401.       Top = 60
  402.       Width = 73
  403.       Height = 24
  404.       Cursor = crIBeam
  405.       DataType = nftDouble
  406.       CaretOvr.Shape = csBlock
  407.       Color = clBlue
  408.       Controller = OvcController1
  409.       ErrorColors.BackColor = clRed
  410.       ErrorColors.TextColor = clBlack
  411.       Font.Color = clWhite
  412.       Font.Height = -13
  413.       Font.Name = 'System'
  414.       Font.Style = []
  415.       HighlightColors.BackColor = clHighlight
  416.       HighlightColors.TextColor = clHighlightText
  417.       ParentFont = False
  418.       PictureMask = '99999.99'<image012.unknown>}
  419.       RangeLow = {74B2DBB9838916F2FEC3}
  420.     end
  421.     object Omega: TOvcNumericField
  422.       Left = 288
  423.       Top = 108
  424.       Width = 73
  425.       Height = 24
  426.       Cursor = crIBeam
  427.       DataType = nftDouble
  428.       CaretOvr.Shape = csBlock
  429.       Color = clBlue
  430.       Controller = OvcController1
  431.       ErrorColors.BackColor = clRed
  432.       ErrorColors.TextColor = clBlack
  433.       Font.Color = clWhite
  434.       Font.Height = -13
  435.       Font.Name = 'System'
  436.       Font.Style = []
  437.       HighlightColors.BackColor = clHighlight
  438.       HighlightColors.TextColor = clHighlightText
  439.       ParentFont = False
  440.       PictureMask = '99999.99'<image013.unknown>}
  441.       RangeLow = {74B2DBB9838916F2FEC3}
  442.     end
  443.   end
  444.   object Header1: THeader
  445.     Left = 168
  446.     Top = 8
  447.     Width = 249
  448.     Height = 49
  449.     Font.Color = clBlack
  450.     Font.Height = -24
  451.     Font.Name = 'Times New Roman'
  452.     Font.Style = [fsBold]
  453.     ParentFont = False
  454.     Sections.Sections = (
  455.       #0'130'#0'Call Option Calculator')
  456.     TabOrder = 3
  457.   end
  458.   object OvcController1: TOvcController
  459.     EntryCommands.TableList = (
  460.       'Default'
  461.       True
  462.       ()
  463.       'WordStar'
  464.       False
  465.       ()
  466.       'Grid'
  467.       False
  468.       ())
  469.     Left = 65535
  470.     Top = 65535
  471.   end
  472.   object CallOption1: TCallOption
  473.     Left = 56
  474.     Top = 32
  475.   end
  476. end
  477.